0 POKE53280,1:PRINT"[147]"TAB(12)"RAPID RANDOMIZER":PRINT"PLEASE WAIT..."
1 REM ==================================
2 REM    COMMODARES PROBLEM #55-2 :
3 REM       RAPID RANDOMIZER
4 REM    SOLUTION BY
5 REM       DOUG ROPP
6 REM ==================================
10 N=100: DIM X(N): FOR I=1 TO N: X(I)=I: NEXT
20 T0=TI
30 X(0)=X(N):FORI=0TON-1:N=RND(N)*I:J=X(I):X(I)=X(N):X(N)=J:NEXT:N=I:X(N)=X(0)
40 PRINT TI-T0"JIFFIES"
50 FOR I=1 TO N:PRINT X(I);:NEXT